home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / moni / XOpa.lha / xopa / XOpa-Installation < prev    next >
Text File  |  1995-04-19  |  3KB  |  96 lines
  1. ; $VER: XOpa-Installation 1.14
  2. ;
  3. ; Install script for XOpa
  4.  
  5. (set @abort-button "Installation abbrechen")
  6. (set @language     "deutsch")
  7. (set @default-dest "Work:Tools")
  8. (set @user-level   1)
  9.  
  10.  
  11. (set hello (cat  "\nWillkommen zu der Installation von XOpa 1.14!\n\n"
  12.                  "Die Installation läuft weitgehend automatisch ab.\n"
  13.                  "Damit XOpa funktioniert, benötigen Sie mindestens\n"
  14.                  "AmigaOS 2.04. XOpa benötigt keine Eintragungen\n"
  15.                  "in Ihrer User-Startup.\n"
  16.                  "Die Dokumentation ist derzeit nur im\n"
  17.                  "AmigaGuide-Format vorhanden.\n\n"
  18.                  "Eine Vollinstallation benötigt ca. 250kB.")
  19. )
  20.  
  21. (procedure XOpaInstall
  22.   (set destdir (askdir
  23.                    (prompt  "In welches Verzeichnis soll XOpa installiert werden?")
  24.                    (help    @askdir-help)
  25.                    (default @default-dest)))
  26.   (set @default-dest destdir)
  27.  
  28.   (set WhichPart (askoptions
  29.                       (prompt  "Welche Teile des Programmes möchten Sie installieren?")
  30.                       (help    @askoptions-help)
  31.                       (choices "XOpa-Hauptprogramm"
  32.                                "Dokumentation"
  33.                                "Strukturdefinitionen"
  34.                                "Herstellerdatei")
  35.                       (default 15)))
  36.  
  37.   (if (IN WhichPart 0)
  38.     (
  39.       (copyfiles (prompt "Kopiere XOpa-Hauptprogramm...")
  40.                  (help   @copyfiles-help)
  41.                  (source "XOpa")
  42.                  (dest   destdir))
  43.       (copyfiles (nogauge)
  44.                  (help   @copyfiles-help)
  45.                  (source "XOpa.info")
  46.                  (dest   destdir))
  47.       (copyfiles (prompt "Kopiere XOpa-Registrierung...")
  48.                  (help   @copyfiles-help)
  49.                  (source "XOpa-Registrierung")
  50.                  (dest   destdir))
  51.       (copyfiles (nogauge)
  52.                  (help   @copyfiles-help)
  53.                  (source "XOpa-Registrierung.info")
  54.                  (dest   destdir))
  55.     )
  56.   )
  57.   (complete 60)
  58.  
  59.   (if (IN WhichPart 1)
  60.     (
  61.       (copyfiles (prompt "Kopiere Dokumentation...")
  62.                  (help   @copyfiles-help)
  63.                  (source "XOpa.guide")
  64.                  (dest   destdir))
  65.       (copyfiles (nogauge)
  66.                  (help   @copyfiles-help)
  67.                  (source "XOpa.guide.info")
  68.                  (dest   destdir))
  69.     )
  70.   )
  71.   (complete 80)
  72.  
  73.   (if (IN WhichPart 2)
  74.     (
  75.       (copyfiles (prompt "Kopiere Strukturdefinitionen...")
  76.                  (help   @copyfiles-help)
  77.                  (source "XOpa.structs")
  78.                  (dest   destdir))
  79.     )
  80.   )
  81.   (complete 90)
  82.  
  83.   (if (IN WhichPart 3)
  84.     (
  85.       (copyfiles (prompt "Kopiere Herstellerdatei...")
  86.                  (help   @copyfiles-help)
  87.                  (source "XOpa.boards")
  88.                  (dest   destdir))
  89.     )
  90.   )
  91.   (complete 100)
  92. )
  93.  
  94. (message hello)
  95. (XOpaInstall)
  96.